home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 08-04.BAS < prev    next >
BASIC Source File  |  1991-06-06  |  631b  |  38 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. CONST Pages = 4
  6.  
  7. Status = SETMEM(-(Pages-2)*(32768+16))
  8.  
  9. IF FGtestmode(11,Pages) = 0 THEN
  10.    PRINT "This program requires Hercules monochrome graphics."
  11.    STOP
  12. END IF
  13.  
  14. OldMode = FGgetmode
  15. FGsetmode 11
  16.  
  17. FOR Page = 0 TO Pages-1
  18.    Status = FGallocate(Page)
  19.    FGsetpage Page
  20.    FGsetcolor 7
  21.    FGrect 0, FGgetmaxx, 0, FGgetmaxy
  22.    FGsetcolor 0
  23.    FGlocate 12, 37
  24.    CharString$ = "Page" + STR$(Page)
  25.    FGtext CharString$, 6
  26. NEXT
  27.  
  28. FOR Page = 0 TO Pages-1
  29.    FGsetvpage Page
  30.    FGwaitkey
  31.    Status = FGfreepage(Page)
  32. NEXT
  33.  
  34. FGsetmode OldMode
  35. FGreset
  36.  
  37. END
  38.